proc zeroar
    for i : 1 .. 10
	for a : 1 .. 10
	    comploc (i, a) := 0
	end for
    end for
    for i : 1 .. 10
	for a : 1 .. 10
	    userloc (i, a) := 0
	end for
    end for
end zeroar
